home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00251.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  991 b   |  29 lines
  1. on exitFrame
  2.   global ppl, advance, foes
  3.   set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  4.   set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  5.   if sprite(getAt(ppl, 1)).flipH = 0 then
  6.     set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  7.   else
  8.     set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  9.   end if
  10.   set the constraint of sprite 10 to 39
  11.   set the constraint of sprite 11 to 39
  12.   set the constraint of sprite 12 to 39
  13.   set the constraint of sprite 13 to 39
  14.   if advance < 12 then
  15.     if getAt(foes, 1) < 56 then
  16.       setAt(foes, 1, 65)
  17.       chkhit(getAt(ppl, 2), 56, 65, 2, 1, 73)
  18.     end if
  19.     if getAt(foes, 2) < 175 then
  20.       setAt(foes, 2, 180)
  21.       chkhit(getAt(ppl, 3), 175, 180, 3, 2, 207)
  22.     end if
  23.     if getAt(foes, 3) < 175 then
  24.       setAt(foes, 3, 180)
  25.       chkhit(getAt(ppl, 3), 175, 180, 4, 3, 207)
  26.     end if
  27.   end if
  28. end
  29.